home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 75 / MOBICLIC 75.ISO / pc / DATA / TOUTEDIT / TOUT_MATOS.cst / 00001_Script_SCRIPTS_GENES_TOUTEDIT next >
Text File  |  2005-06-15  |  1KB  |  57 lines
  1. global gL_TOUT
  2. ---------------
  3. on initTOUT
  4.   if voidP(gL_TOUT) then
  5.     gL_TOUT = [0,0,0,0]
  6.   end if
  7. end
  8. ----------
  9. on testeVisite NoNAVI
  10.   return gL_TOUT[NoNAVI]
  11. end
  12. --------------
  13. on plugTOUT
  14.   v = zNoSRub()-1
  15.   u = gL_TOUT[v]
  16.   case(u) of
  17.     0: -------------aucune Θtape franchie dans le dir de ce navigateur
  18.       if v = 1 then--on est dans TOUT01(Cristophe Colomb)
  19.         L = ["TOUT02","TOUT03","TOUT04"]
  20.         if L.getPos(zLast()) > 0 then--si on vient d'un autre dir de navigateur
  21.           _movie.go("PRESA")--on commence au label presA
  22.         else
  23.           nothing--on lance le dir α la frame 1
  24.         end if
  25.       else---------on est dans TOUT02,TOUT03 ouTOUT04
  26.         nothing--on lance le dir α la frame 1 ("presA")
  27.       end if
  28.     otherwise-------au moins une  Θtape franchie dans le dir de ce navigateur
  29.       case(v) of
  30.         1:
  31.           max = 7
  32.         2:
  33.           max = 6
  34.         3:
  35.           max = 11
  36.         4:
  37.           max = 6
  38.       end case
  39.       if u = max then----la derniΦre Θtape de ce dir a ΘtΘ franchie
  40.         _movie.go("FIN")
  41.       else
  42.         if v = 1 then
  43.           case(u) of
  44.             6:
  45.               _movie.go("07")
  46.             otherwise
  47.               _movie.go("INDICE_"&gimme2digits(u + 1))
  48.           end case
  49.         else
  50.           _movie.go("INDICE_"&gimme2digits(u + 1))
  51.         end if
  52.       end if
  53.   end case
  54. end
  55. --------------
  56.  
  57.